<!--
Dim fso, iMsg, iConf, Flds, cr
Sub document_onclick()
    cr = Chr(13) & Chr(10)
    Set e = window.event.srcElement
    If Not e Is Nothing Then
        ID = LCase(e.ID)
        Select Case ID
            Case "save", "submit"
                a = Company.ID & " = " & Company.Value & cr
                a = a & email.ID & " = " & email.Value & cr
                a = a & Phone.ID & " = " & Phone.Value & cr
                a = a & Fax.ID & " = " & Fax.Value & cr
                a = a & First.ID & " = " & First.Value & cr
                a = a & Last.ID & " = " & Last.Value & cr
                a = a & Operating.ID & " = " & Operating.Value & cr
                a = a & Product.ID & " = " & Product.Value & cr
                For i = 0 To Typ.Options.length - 1
                    If Typ.Options(i).Selected Then
                        a = a & Typ.Options(i).Value & cr
                    End If
                Next
                a = a & cr & cr & Description.Value
                If ID = "submit" Then
		            b = "mailto:torsten.borg@swipnet.se"
		            b = b & "?subject=" & TheTitle.innertext
		            b = b & "&body=" & a
		            b = b & "&CC=torsten.borg@swipnet.se"
                    b = ReplaceCharacters(b, " ", "%20")
                    b = ReplaceCharacters(b, Chr(9), "")
                    b = ReplaceCharacters(b, cr, "%250d")
		            Submit.href = b
                Else
                    OpenObjects
                    SaveMessage a
                End If
        End Select
    End If
End Sub
Sub window_onfocus()
    For Each h In window.Document.All.tags("INPUT")
        If Len(h.Value) = 0 Then
            h.Value = h.parentElement.innertext
        End If
    Next
    For Each h In window.Document.All.tags("OPTION")
        If Len(h.Value) = 0 Then
            h.Value = h.innertext
        End If
    Next
End Sub
Sub SaveMessage(a)
    On error resume next
    np = fso.GetSpecialFolder(0).Drive
    np = np & "\Fisa Troubleshooting"
    If Not fso.FolderExists(np) Then fso.CreateFolder np
    np = np & "\Report.txt"
    fso.CreateTextFile(np, True).Write a
    MsgBox np & cr & Sendreport.innertext, 64, SavedTitle.innertext
End Sub
Sub OpenObjects()
    On Error Resume Next
    Set fso = CreateObject("FisaActiveX.Fisa").GetFSO
End Sub
-->
